﻿Imports EguSoc_Dll

Public Class Tablas_Cargadas

    Public Shared DS_Tablas_Cacheadas As New DSEA
    'Public Shared Property Cabecera_Sobres As New DSEA.Cabecera_SobreDataTable
    'Public Shared Property Linea_Sobres As New DSEA.Linea_SobreDataTable
    'Public Shared Property Articulos_Sobres As New DSEA.Articulos_SobresDataTable
End Class

Public Class Funciones
    Public Class Carga_Datos
        Private Shared Ta_Sobres As New Cabecera_SobreTableAdapter
        Private Shared Ta_Linea_Sobres As New Linea_SobreTableAdapter
        Private Shared Ta_Articulo_Sobres As New Articulos_SobresTableAdapter

        Friend Shared Sub Guardar_Sobre_Total(ByVal Dt_Sobre_Cab As DSEA.Cabecera_SobreDataTable, ByVal DT_Sobre_lin As DSEA.Linea_SobreDataTable, ByVal DT_Sobre_Articulo As DSEA.Articulos_SobresDataTable)
            Try
                Ta_Sobres.Guardar(Dt_Sobre_Cab)
                Ta_Linea_Sobres.Guardar(DT_Sobre_lin)
                Ta_Articulo_Sobres.Guardar(DT_Sobre_Articulo)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Sub
    End Class

End Class

